(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     34693,        889]
NotebookOptionsPosition[     30217,        730]
NotebookOutlinePosition[     30834,        754]
CellTagsIndexPosition[     30755,        749]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/CoherentClusterEvolutionGaussian", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["CoherentClusterEvolutionGaussian", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"CoherentClusterEvolutionGaussian", "[", 
   RowBox[{"nspin_", ",", "coord1_", ",", 
    RowBox[{"{", 
     RowBox[{"trans1_", ",", "trans2_"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"b_", ",", "theta_", ",", "phi_"}], "}"}], ",", "seq_", ",", 
    RowBox[{"{", 
     RowBox[{"tmin_", ",", "tmax_", ",", "dt_"}], "}"}]}], "]"}]], 
  "InlineFormula"],
 " \[LineSeparator]Calculate the cluster evolution using the Gaussian \
approximation"
}], "Usage",
 CellChangeTimes->{{3.498729884473055*^9, 3.498729900046069*^9}},
 CellID->982511436],

Cell["XXXX", "Notes",
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[ButtonBox["CoherentClusterEvolution",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/CoherentClusterEvolution"]], "SeeAlso",
 CellChangeTimes->{{3.49872991556152*^9, 3.498729931801582*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[BoxData[
 RowBox[{
  RowBox[{"exampleCoord", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", "\"\<H\>\""}], "]"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{"Spin2Cluster", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", "1", ",", "1"}], "]"}],
      ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.498552690776728*^9, 3.498552693938664*^9}, {
  3.498730259750036*^9, 3.498730270117616*^9}},
 CellLabel->"In[21]:=",
 CellID->1164310054],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"cRealization", "=", 
    RowBox[{"CoherentClusterEvolution", "[", 
     RowBox[{"2", ",", "exampleCoord", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", "\"\<CPMG\>\"", 
      ",", "100", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}], ",", "0"}], "]"}]}], 
   ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.498647154463332*^9, 3.498647158255351*^9}, {
  3.498730016004524*^9, 3.498730018696083*^9}},
 CellLabel->"In[23]:=",
 CellID->1617009137],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.008000999999995956`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.498647158573534*^9, 3.498729988090882*^9, 
  3.498730078041436*^9, 3.498730277967475*^9},
 CellLabel->"Out[23]=",
 CellID->932774119]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"GSApprox", "=", 
   RowBox[{"CoherentClusterEvolutionGaussian", "[", 
    RowBox[{"2", ",", "exampleCoord", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", 
     RowBox[{
     "$CPMGTimingList", "\[LeftDoubleBracket]", "100", 
      "\[RightDoubleBracket]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.498729990785311*^9, 3.498730041089856*^9}},
 CellLabel->"In[24]:=",
 CellID->1544537776],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"ListPlot", "[", 
     RowBox[{"cRealization", ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"GSApprox", ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.498730043794927*^9, 3.498730110476136*^9}, {
  3.498730288060885*^9, 3.498730363982159*^9}},
 CellLabel->"In[30]:=",
 CellID->449724912],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxNmXlczdkbxy3Z98gukr1IGAbxSciejHXsGhGG+UmIbFnGOpaQhsm+NNYk
e1JJCGnTrn1fbnff7/f+7vnezvnO/YPX53XuPc73PM/zeT/Pl43HH794NqhX
r94l0x/kb/qxMJJPLbR71kf4nPVCV113maB98bPHeAnRTnmz/7qwaT+mW54q
EdaPoN27cFuiX1gfqprz4iTONDXvZ/5+ADa67eF1N4cffRr7n0ez84/yhd8H
oUu1fS3RmQmquUW3LsG285Imwn6XEXlPzP9+5qijE1aWXMXFRTn/2f86lunX
fCHa7nBH0xY38NfuIqnw793C7/sCI4hunn7jf+Oa38H6dcv/87wh6PI6ndeV
/Ryb3u9+F13XBhVz7Dz3MO2RUzVZ/7Qt8kpXhwfImdlJJJzvIX5Z01ND9DzT
4WN7hcKrKfef84ZixNUh04medPz3Mt2/j9FrRxOtcP4w3DsTw9/ncP7zBKe1
D04Kz/ME4/uM4/ezzdaYThyO+K9jdMLzPYXdpN/kRLc/EBV/bfIz6HpJJMLz
PkfBoCwleZ4G/IbP8WCR6D/P/wL13e15LU2e5dF20Uvs3L+zWriPVzj9ejf/
fAU7OzycUvAKcx0PPxPu5zWGvzunJ+tJvfkDwjHvi164rzfY1z3NiXw/mpxO
9gbPXBIkwv1FIm7QS/78od5eZ2p2vcXOmESdcJ9RiK84wJ/P3XRblgei4Fzo
PY9j9xuFeb4b+fNN5Q8YjYmfXYqF+47GT1cvJBLt/NPyV9NaxiCpv4tauP8Y
bD/ud4hofrvEGPhEz5cJ8XgHr/MqPp/M6WvSs3c1EuLzDrOOufPn60+ua3Es
lvdapRXiFYuNBw5mEt2TPK71e8x5r5II8TPpEc+3Ed2Jv9D3WF4xXCTEMw5b
Nfm8bj04LLj2ThwczkwJ5Vh8P0Ax7VoNWTcdbuLx3z9gUlFDPp/M8f6A0iYt
OKK5VN+Kfo4f8bLVea0Q/4+wObTTm+ynHLD0VIziI/rmZOQK+fAJEt3ZaKJF
u2C6wU/4jBPpQn7EQzS2fgHRpYkkAeIRdGX9FiFf4jHkZxs+Hvz1TfyMuUny
cqHeP+PFn4W+RH8nx2v6BTe3t9cI+fQFDuHX+H/v6xf+g0iLpHtCfn1Fercz
sUS/70Uy6Cuyejx7YmT59hVTV02II/qNz9nOFgsSsMAv4YOQfwnI+p/amujw
j2TDb3Ba8aRIyMdviPBI5e/XFNzVY/O+ofHpBWohPxNxYs/4QqJ/4TdMhMPu
sbOFfE3Epy4HLxDtZrrN0eGJ2LhR/lDI30T4L537D1mf3pJELAnc77mhQj4n
IXqFx0OiXZ/JDKm+SfBwdcwS8jsJlqE3PhLtYtqsd3YSToTvDzSwfE823ePa
bLI+nk+YZEyat+mekP/JCNmRt5Do0fwFJCNhTcwCoR6SYWEd70g0v12DFFhO
2rNDqI8UaINTppDn4dN/dQq8yl8eFuolBU2SPvF+b07fFGzZOLhEqJ8UvB1d
9p3ogST9BqSi8Oj8U0I9pcJuwt0wsn9fPsFT0TthaEOhvlJxr6I0h6zb8AFL
xbkOFrZCvX3HoPZHvYjuQcI3+zt2psVeE+rvO+pl+PPx7mKxwFRi3yF5eOux
gdXjd/w48zCR7G9lyuadHdKgmd1wl1CfaUiu+a050e0WkRtMw52TXW5wrF7T
ENPk4mGi+fBmpqHRjOkzhPpNxybRtabk9/z1jU3HmJWP6gn1nI42c/3jieaP
F5yOR5aG/9R3OhxGbn9KtJnmGTjdxnONUO8ZmOTwL/88+n8lporOADdE3ZFj
9Z+Bbn0X1pB1NaFvbAZ2TksLNzA/yMDInWXbyPflBrJhJjpebNdZ8IdM3D91
jc9f8Z24GaOOZuIPu2MawS8yoQzxPU109RxSIJmQRmpLOOYfWbi+Y+5xost1
5IBZKLnpF2NgfpKFqan5o4g24zULLds7luiZv2TBumPjFmSdT2fLbEivdD/C
Mb/JxrhuYbVE8+nik42w5Wbemv0nG60nST8TbQ6H6fdzfw/mmB/lYInbrFlE
p5DHHZ2DbduDU/XMn3LwxOlLgNqkv/HtSw6O6Y511jO/ysEhW99bRH8mdmTI
QYZ4Lh8Ps3/9wPX2c7+S/T/MIBX3A8VrrtwV/OwHtu8y8H7zTkEC8gN5keUz
BH/7gZTArUqy31uyW59cOF2LOKBnfpeLyk0183Qm/XoaycBcuM+2itcy/zNp
z03OZJ23l4pc6IcOK9AxP8xDA/vWvcn5+PKdkYdh3SrWC/6Yh+Wefnz98OXx
MA9cpx2RBuaXeeh5x7HawO4zH29S4+Q65p/5OGmT0lrL7jcfzs7x91TMT/Mx
YPQbNw2773zU2rjJtcxf83H2qpWFgd1/PoZNFvPxNvttPg6MxAuBH/m4fC/8
tNCf5WNKK/dCA4tPPgpPK5bomB8XYPWgfm4KFq8CuAbscVcxfy7AJP99w1Us
fgVwWXU7Vc38ugANeyas1rF4FqA8bkNTjvl3AVrHtXwtxLcAw5t8ChL8vADp
f+/KN7B4F2Df69FZWubvhYhyf3pYxeJfiJl289opmN8Xoq2P7ouM5UMhIo9d
sxAz/y9EnG+1PznvKz4/CuF+rsVLPeNBIZwbnfxF4KVp3a7pYYEPhWjTXmTF
sfwpREjhxa1axosi6PKt+ytZPhXBZpTzQinjRxEGzms9TcLyqwhi0WB/KeNJ
Ec4UDR6kZPlWhJ83brBSMr4UYXzQpEValn9FaNHzqVbgTRFeqBL5ftGcj0Ww
nj1uopbxpwhK24UP5CZ9l9hj22LsPZSoqGU8Ksb03LteNSYdQuxtQjF+TTa0
FDE+FePAI8fG5Ly3iT15F2OP1/UvKsarYjg1EXch8btJ7OVGMTxauuQI/CqG
s29ff3K+6yT9UovxMMk5Rs14VgzbI4cukPhdJeFtXIKlr1+0q2F8K8HzTjGy
cpO+TK5vVAlejBnClTPelaBtq4PaapP+hxzPqwQTHVcUyxj/SrBt463HpL4u
/k0+JXBc6tdW4GEJfB2dPYkOIt13fAn+LOt7Qcv4WIKVDS3fkPgFTiQJXQKr
3rNfVjBelqJZk9LSIpM+15lsWIrwB0+DCxk/S/Hn1WZXS006oIYAoxQDk21O
ihhPS/Hvi0J/cp8kGktPlWLnw6dDBL6Wwvn1Wb6/N48HpagOUc/SMd6WYpPs
sCWJD19uklKIt121LmP8LUNeRo/duSbNp3PvMny+F9Atm/G4DINueRwg63y6
zC2D2+/nmxQwPpchwONsEtmfD8ehMvS+ZPymY7wuw74pFbw/msezMuxaVTpZ
z/hdhtfhG1+T+zNvV4bgB/P2FzOel8Mx9YU+3aT3Elx3LsetsG27kxnfy/HL
A6dTqSa9m6+4csT3tpyRy3hfjpi5E3uS+PsRt9pZjgt+RVlqxv9yJIxOqSL5
soPY8/1ytA9I8BT6gXJM3zroUpVJb+dxVY6VT77ZkfiZ+4NyTBS/mkXOs5XY
S+sKLPZOP/jRSPuFCrRebxdA9BZSvqiA++l3PuT75v6hAs6PpTVkv82kPP5X
gYDbL6JIfpr7iQqsb+q0hMT7D5J+1yoQOX3Mn0Sb+4sKeF202ES+v5GEN7kC
6vx3lXeNtN+oQOGXYdxnk95Ars+iErKjY9q/MdL+oxIhg5dMfmXS68jxfqpE
1/7N/WOMtB+pRF5/l4NpJr12DflU4kNifBtyn+b+pBIXz4dlkHh7jiWGWgmJ
d+ulJN7mfqUSARPedCZ+zOPoYyWM6xT7fxhp/1KJ2CVBUe9Nmrd7TSWiWuhd
HxtpP1OF7dGXXReaNG+ndlWY7dt4MVk39zdVmDan/fA4k+btamkVpst09Uh+
mvudKmxxHWND6oe3g7+qECTdZhD6nyp0r1bMIut8uUVWoejOIM88I+2HqpB7
JTD+rUnz6VxbBWXEC6ubjOfVCBqc9e4843k1clL/9+Ui43k1ekY9WvaY8bwa
s/qFn/+N8bwafy5P9qhlPK/Gj/2pdkbG82oMWL6xnpbxvBryjl8D8hnPqxEY
5dvpFeN5NRqu/Kd7ION5NTwXB/ruZTyvwZSyeg57Gc9rMOBHI99AxvMaBLuO
7RDBeF4D14sxq4oYz2tgOOc4Rc94XoP6QwPGHmY8r8GGqeoORYznNYhcML7X
c8bzGvy2af7nw4znNZgT3affGsZzEU4XxTxfwHguQurqq3u3MJ6LkLnkov4K
47kILZXX/ZIYz0VYXl87nPDR3O+JcFvuVknqZQwPYBFW7/i9SRnjuQj5zQLi
whnPRdj2YaxVW8ZzEaZmlpRNYzw3+ezusg2jGM9rEZyl3D2N8dwUhz+2Oe1k
PDfde8Krmc8Zz0156j1/QBXjuYnjby2qhHmxFo8auDtXM57XYuirLvHhjOem
dZ/62RsYz03PfWHQ90GM57X4GDR6RTOWn2Jcdqw/LZqjPBJjxtTfzk5l+SrG
v61DF59lfBLDSWFRlsHyV4wOsqVGA+OVGOFWnaQSls9inM8cPe0545cYcbGb
V61g+S1GYO+Vvch5+PLfJkbVihveKRzNdzEeSir9kjnKNzFij/fOaMLyXwwY
Hj9byXgnhttYb6+/WD2IYe+Zaqti/BPDqtT2g5rVhxjDnjZ9GsF4KMaWv/Zb
zmf1IoaoV5+uJRzloxg1x6ZEnONo/Yhxr77fAX+O8lKCRy5Z559wtJ4kWLeo
a+NujJ8SZFqHBZ1m9SVBv/WXRpUznkowcV+sJcfqTYK54WFdHzG+SrAy4n7l
LFZ/EizZmrDpLUd5K4HzX+OGzuRoPUrgX/5qqTVH+SvB4gX6rlM5Wp8SrGjy
QPOaozw2nU86rbs7q1cJoqZ76qIZnyWwd+1ZK/TjErS6+9I+ifFaggMZ3evN
YPUsQUbUhvIgjvLb9Lz+DXvLDbS+JUjb9+D1TQPluRTXcq0NEQZa71Kstnes
HMNRvkvhVrKuoZSj9S+FZ5TybDDjvRQp5367qmV+IEWw/PnJPMZ/KSzeTHCe
xfxBit5hX657c7QfkCIkv2bU3wbqF1I0ubT2UBsD7Q+kUI6Y4t3MQOcB0+9H
Xmx+wkD7BSmmpG/OX8fR+UCKwz5THeaw/kGK2IZBQ0uZv0jxVPE0VcT6CSnW
LJo8ZCHzGyk2R1/r4sbR/kKKSMlwR3sD9R8pjgQUNV+kp/2GFPaxI9/30lM/
kiF7xbR6l/W0/5AhSzs49JaB+pMMm9uX30nnaD8iQ5kseOAb5lcyrLmdvlbH
+hMZKjv20a1l/iXD3U7ZUfYc7VdkCMZfMY/01M9ksHFpkOyjo/2LDK4z3n4V
a6m/yVB1LC93oY72MzL07T207Kie+p0M01sUt+nC0f5GBi/HidM2Mf+ToXze
lRyh35Hha83wvgeZH8qQb+G0ojVH+x8ZPNunz7HRU3+U4dfFe9x+1dJ+SIax
x7sXLddQv5RhoU14+FkN7Y/k8PIJy6jS0nlIjsw5/e6K9LRfkkNV/Mgpm6Pz
kRzb+nz4UcP6JzkmjGtiuGOk85IctotHjrLgaD8lR2R66uktOjo/yRFXb1sP
iZr2V6b9brl5jFPReUoOy5HFG61Mmm+P9sjR1PXosT/VdL6SQzrRbmYn0358
e3NBjg5tLbjvBjpvyeEidjz4kPVjcsy8fWQzqWfz/CVHkGRC00Yc7c/kmHdj
hmusls5jclTOchhtraL9mhyde7yyWiSn85kcIUFnx+2Q0f5Njm9HMhoXyem8
psCkYcUdeqhpP6fATx3PJDbW0/lNAfvRblw71t8p4B5404/w2zzPKfA25+4/
PTja7ymwdtjhhdUaOt8p4GKfEfdATvs/BdIeDx7gIKbzngI+B1Y4tRbRflCB
YR668QNr6fynwKurA/aPkNH+UIGTaXO/RKvpPKjApb3rx4cbaL+owLvQJX3J
vGieDxU4fGjZnUUc7R8VOH3d0FOspvOiAlE235u6SWg/qcCmQapzigo6Pyqw
amxwqH8J7S8VcL49Nfl+CZ0nFbgc3c3r70rKcyWiCl3tL0opz5VoPvpkxWMt
5bkSA8e19TnJeK5E0oLqj+84ynMlzqnzFn9UUZ4rcXN++xMLqynPlVAPCR3a
IJ/yXGnqo46nNEqnPFcibdOUejGpdD5VwqHXqLUrsijPlRhbfNS7dynluRIP
aodPipVRniuR8Gt5w48GynMlhj16NnMt47kS0oNbg32UlOdKLExw0W0rpjxX
woA1vgcTKM+VeKL3bhL7mvJcidhv6fbaMMpzJTwzlu8ueE55rsQmcVP3K58o
z1W4/Ou6OFkB5bkKE/5cFLpKRXmugk87XZDwvlKFlrtv+9gpKM9VCFngP+tw
GuW5CvO+tOlmvEt5rkJa+cpj7nspz1Vo9GFQm0EelOcq9Gr101HFcspzFc6W
beqs96U8V6H/SUPL0BDKcxWytvYv9c2hPFfhyL6e5cMNlOcqdLVZkHlFQXmu
wjOfP+pveEV5rsLP+rxms9wpz1XIVTqJb30V1fFchX2zI5eNNvXVZp6rYHFm
6d7p7UR1PFfBYad9xYjuojqeqxGV1+pv+92iOp6rMfLrwpL2XSnP1djX4PAL
t+eU52q89U17ZWA8V+NotyGldhcoz9XIve/8fuMQUR3P1fAN7/Yi95+qOp6r
sUex/NYScVkdz9XIN9ywrt5SVMdzNX5q92zEz3N+1PHctF/OLyuWe6TWzQNq
nC3eueVZUnwdz9UoafbGtps0po7naux1vHih14aYOp6r0eHe3TvJv36q47ka
IcM72+6Yn1LHczUcUju/thmYU8dzNcLf3ZzarKawjudqBI0NfLj2WFkdz9Xo
8yBwdoOVVXU8V8Pi8yfXTh1FdTzX4PyQuwGh5yjPNVixKvpBCZs3NJC7Nt8S
cofyXIMjLhHJObWiOp5rcEKf4jlwlKiO5xo82ZeyIsg0h5l5rkFYuyGnV4fV
1PFcg4MVP06eqi+q47kG45PbpJedFNXxXIOlS/yiy+0ozzV43XCo2/X7lOca
/Ohm5z9PTnmuQcAv0WOO6SjPNeh+/IPf1m+U5xq89NWNm3yM8lyDkKnRFfnT
KM81pv4oySW7L+W5Bp27iW41H0h5rkFrh72ZabMpzzX42bbGbeJxynMNfi3t
pRz2gfJci+5Nei44I6E816LQeWRD4f9vteg4SH1llZTyXIuifXYeyUmU51oE
fm/1/N/7lOdalPol2408Q3muxcRbfyfpj1CeaxGVrP9RP5DyXItVijaRKWGU
51qcstBfavOdvj/Rwv3unovzJZTnWrTcYe02hr1P0eJb67WjC3WU51pI06NX
nKykPNfCeaDnCWUy5bkWaaFrNi+OpDzX4mqpNGx4OOW5FqpG2nafnlOem867
p8p62QfKcy22TA8v7vOD8lyLpo2H2p6QUJ7rkOIUsUhtoDzXYeGu9eM5jvJc
B4PHqPPLFJTnOjToeW/szhLKcx0cqnZ/uvid8lwHj8eFLW5+pjzXQXK+++RG
nynPddgwp/PI8BTKcx3+tpx5yqOQ8lyHRpcdBqdIKM918Nf2uvRZT3muQ4+w
nADyPtbMcx3O+Lda90xLea5D2x27hzyspTzXYfGLoR4/FVGe69DUsrm3OpPy
3LR/YNo/LumU5zrM/JgdUZpNea5DwJSm29uXUp7roP8WXNhZSnmuw6vKb0/i
dJTnevx2/slS8v7UzHM9lg545nfQQHmuRwfbgrxPCspzPRpVn22bU0V5rkf3
X0/FrC6iPNfDXrzkcmge5bkebmVJPd8XUJ7rsV7/8n5OOeW5HpZtvNstlVKe
69Hnqsv4Ui3luR5HnEdZkPdbp3me67Hz1Ih4I0d5roft5+4Pbpr6sTZ8Aesx
YHDznDAJ5bkePj3qhwyppDzXY0TtQpvMEspzPab1/bB7VCnluR7uItuP7aso
z/VoPPLJrCtSynM9lGF/v+yrpTzXY2Lt2/DmRspzA6Z3Dlj+gr3vMmD0kp7P
+uopzw0YIx46LEFBeW7AJiv/u9a1lOcG9O+3Kvx4JeW5ARsPukZEVFCeG2Dz
0FJZVU15bsDtsPGrS6SU5waEZ3t19NdQnhvwoZF35no2nxuw3CrPS/j/MAPc
Uyo+fzJQnhvQcqX75A9qynMDQrZu7l8gpTw3YET0GbcpIspzA46sT9x6o5ry
3ABF6OJxB0V0Pjf9vr7hyhAZnc8NUHrPv6BQ0/ncAOsRk7rHsvmcQ/gA7zIZ
ex/HIbBjV+tMNp9z6Hf6zu8qLeU5B1dNYPNEBeU5h68+IV6k3zXznENcanrv
jrV0PucQ3GDyWHEtnc85rG839/MBGZ3POVgNHTzPX03ncw6D5+faWLP53HSe
tn7XI9j7PQ4Tqgsa7jPS+ZxDutuzV4F6+r6Pw/TaITG91XQ+57Dx7qw7STI6
n5u0yE8zQkLncw52jlZXnSR0PufwvHFx+zwZnc85dDqw/VoLNZ3POZzQWpXu
ZvM5hy8u+Vae7H2hER2m7JdlGSnPjcCuxn6f2HxuRNR9qV99LeW5EcXZCbdq
FXQ+N8J77rJxljI6nxtxK/vAqM1SOp8b8W1m3u2JcjqfGzFqS/7FTBWdz434
/jb7Symbz41ovuT9LTVHeW7EFJcW88l8bea5EQ1mrFoYwlGeG3EsZem7/Yzn
RsyMrn0aoaI8N+JQRmTEaznluRGJPTPun5dRnhtxIqko6bGc8tyIR7lHnt1U
UZ4bcbDVp4xFOspzk3Z9tmwvR3luRHTK7adkHvw/a75iNA==
     "]]}, 
   GraphicsComplexBox[CompressedData["
1:eJxVmnVclNn3xxUDURcDA13FrrVBFws+uGB3LHYXroWxBnYHCjbWioKt6xdF
EVEUARUDBQTpGJoBhimm55nf3Ge499kff+jr87ozl/vcc87nfc6jnZZumL7C
qlatWlfNf5C///+PFLo9f73ecs4LWwztFCZTVY3ejjrLXWVEj8idcipg/QGE
NfcvEtaPocGKZ12IDnc4XD4t3A9vbEwm4fNnkTN5D69/7Z/dtf7+C3AM+F+e
8P1L6C7uU0V0+jf1jILbVzE0bq61sN91ZDyS8t+f6Hx85OKiG/Cfk/Wf/YNg
V7HyK9G9j7YybxGMj7sK5MLvu43IPy++JrpharC3S8O7WLd6oUn4/fcQ/iqV
1+LuAxs8avcAdm7nCjl2nofwuT2igqx/2vomsG3/f3HErbVEON9jdJjaQUv0
TPPhYzuGINKG+895Q/Clcd/xRHv4ri3R338Cyd/WOuH8T5H1dzR/n078Tyjq
nnrkJzxPKB51c+H365KpNZ/4GfThw/TC8z3H/iHLlETbHYz6fHNUGAY2lMmE
530Bx3U/VeR5rPgNX+DX2ZL/PH84ek3ow2t50qSlTWe/hL2HT4VwHxHwfrGb
fz6RT4vHY0QRmLtwf5hwP6+w8eV5A1lP7MwfEJGpXw3CfUUiZMKbEeTz78jp
FJGo3fGbTLi/N2hk85I/f8gmrzOVu97iwNEEvXCfUfAqO8ifb6r5tpofjIJ4
77yZHLvfKEhXruPPN5Y/4Dt4rPijULjvd3hlvJBAtNvghRHjGkdD3usPjXD/
0Viwa+thovntEqJRfvJPhRCPGOz7U83nkyV9Y/A6YHM9IT4x2HRoKn++HuS6
5sZCU75YJ8QrFidmH0wnugN5XIf38Huolgnxe4/rrUO2Et2av9D3CM11kgjx
/ICl0Xm8tu379J+qux9w7oxTCMfi+xFfC25UknXz4dx9135E5n4rPp8s8f4I
TWJDjmgueXtZ94FxaCI7rxPiH4fDMe6byH6qnvP9o6vjYDs5LUfIh08IdDn7
jmjJLphv8BPsPvumCvnxGTELaouILk4gCfAZWe5LNwv58hmOhzry8eCvz/0L
fvusKBXq/Qs8HbO3E51CjtfgKzSD7bRCPn3F0w6B/O+L/8r/oG14/EMhv+Lx
+cjpWKLfdyQZFI+0daGhJpZv8Vj6ZOQHoiO3nLOv6/kNw5rFfxTy7xv6DSh2
IPpZHNnwO+YeeVog5ON3HLNN4u/XHNzlw3O/Q/2Lp0bIzwRc8XbJJ3o6v2EC
9i3sPUXI1wRIHQ8EED3ZfJtDnyXAJyP1sZC/CbiaO+MaWR/fmEQsEW2v54YI
+ZyIufUWPyZ6dJjCmLw9EYZ3AzKE/E6E1YbrcUT/Yd6sc2YilnvrLhhZvieh
yHFFJll35RMmCVPHrnko5H8SVDnps4geyl9AEva+ifIU6iEJ245FDSSa387q
B9zf7tsh1McPRGdfGEOeh0//5T9w2v/pUaFefiB3XRzv95b0/YFe63oWCfXz
A1HXC1KI7kXSr2cyHv0xxV+op2TUuXPyKdm/G5/gySh61aeOUF/JaGrIySLr
nfiAJaNuM+suQr2lYM8Yfy+i25PwTUmBb4u4m0L9pcA+6SAf7zZ1Pc0llgL3
NU5PjKweU+DUZnkC2b+lOZt9WvxEQpl2p1CfP2G7wrMh0c1mkxv8idBFzYI5
Vq8/8dTx8lGi+fCm/0SYzYgJQv2mIuzMvw3I9/nrG56KVq43awn1nIo7dY59
Jpo/3j+pWNxX+5/6TkXU65XPibZwPA1l12euFOo9DWOnTuSfx3BfZq7oNNxv
Km3FsfpPQ9i6GZVkXUPoG5uGwtXBz4zMD9IQcluzlXxeaSQbpiMjp4e94A/p
ODD9f3z+Su9+mOB8PB1Brfy0gl+kQ+86/TTRFdNIgaSjo/FFEcf8IwNKR0df
okv15IAZSB+8JNrI/CQDEkmKM9EWvGbA5m3fIgPzlwz83VbbkKzz6dw8E/Yp
Hsc45jeZOGI6WEU0ny5bMnHi9LciwX8y0WVTxheiLeHIRNLhiGsc86MsOPi1
mkT0D/K4Q7PgNGpmsoH5UxZUDg9Pa8z6O9++ZMHq+Vl7A/OrLPjH3r5N9Bdi
R8YsBMef5+Nh8a9sxA4/EE/2/ziBVFw2wuaFPRD8LBu7ust4v4mpJgHJRkTL
oAmCv2VD7NlERfZ7S3brmoPl7+YfNDC/y8GA4rCZerN+NY5kYA5ObWj5Wcf8
LweZbx64kXXeXspysP3UBpGe+WEuJrfe2Zmcjy/fCbno1v+3NYI/5uLQ5o18
/fDl8TgXWyQjI43ML3Ox9N39ciO7zzx09B2k1DP/zMOWu0ttdex+83B+dOUD
NfPTPIwz6Cdr2X3nwd6mQqlj/poHebPPdY3s/vMw6eFWKcf8Ng/9N7uEC/zI
Q9fuM04L/VkeXiuPiowsPnn4MM5mnp75sQh5vkMnVLN4idAJw6aqmT+LsJ5L
clKz+IkQEHgkRcP8WoRhjvoVehZPEZbaedpwzL9FOBzk9UqIrwiPDZ6XBD8X
4Y3P3Fwji7cI7j2/pOmYv+dj0P1NR9Qs/vl44fq0aTXz+3zYSou/Klg+5GND
zlgrKfP/fJwbeOwAOW8Enx/56FgnMMLAeJCP1LUrZgi8zMeHN3uOCHzIh1vk
7hYcy598TIrYsVnHeFGAvuLG3VQsnwoQ6JP4p5zxowBDNvQeJ2P5VQC7FfcP
yBlPChDeJKiPiuVbAc75iJqrGF8KcCZk5Cwdy78CjPMP1Qm8KYBebZrOsXws
gH1dJzcd408BCgfr7yvN+gGxx6aFSMs6oahiPCpE/aYTvCrN+h6xt5GFaD/m
ma2E8akQ3aN9bMh57xB72lSIv+bsSlAzXhXi9ZSkdiR+t4i9BBdiWb+qLIFf
hThnpd5DzhdE0i+5EBM/Ho/UMJ4VYo/dubMkfjdIeOsXoU9i/C+VjG9F0NRZ
Ji816+vk+pyL0JFrW6uM8a4I0Q4tTBVmfY0cz6sIf3UbIFYw/hVhS/SQ56S+
rlwmP0UY5OjeXOBhEZJWjVpG9CXSfX8uQotrgWd0jI9F8HsSGErid9GdJHQR
Lr548LSM8bIYbumrCwrM+rw92bAYctnMwHzGz2LcMja7U2zWZysJMIqRfG/f
RQnjaTFcvS8fJ/dJojHfvxhR1146CnwtRkp47+/kfJbxoBiHSrjResbbYlh5
TWlA4sOXm6wY3htPtShh/C3Bifj+23LMmk/nziUYOaRlu0zG4xKcKnp2gqzz
6TKjBA9KLtqIGJ9LIKk4lk3258NxuATuib1T9YzXJXh5r4r3R8t4VoKusREu
BsbvEgS9H/EvuT/LdiWY5DR3cyHjeSmMCZWyVLPeS3BtX4q4/Tk7kxjfSxH1
u19Aslnv5iuuFJtmZM7NYbwvxd7h3AAS/53ErXxK8cjWqlTD+F8KUecp8SR/
dhB7flSK0MT8+UI/UAqrAw12lZv1Nh5XpWhrJ2pJ4mfpD0oha75mBDnP38Re
bMvgliDbE2ei/UIZdg0OuUL0ZlK+KMOmlsOPk89b+ocy3LU+bE3yYyMpD+8y
XJ3R7CfJT0s/UQY/1ZNlJN4bSPrdLMOUB3d2E23pL8oQsdXNk3x+HQlvUhny
Pul3PzDRfqMMm6MT87+Y9RpyfXXFGDO9U/1IE+0/xHhy6e+JEWa9mhxvsBh/
J0ZdjDbRfkQMD237ez/NetVK8iPGu321B5L7tPQnYnSJmSMm8V4xnBiqGBmL
U/4k8bb0K2I07B6oJ/7C4yhOjFfbrP/MNtH+RYzC5qEX35s1b/da8/6lv/d7
YqL9TDnK23344mnWvJ32LsdC76/bybqlvymHukncsg9mzdvV/HK4HK50JPlp
6XfKEdtu8EhSP7wdnCrHWTuJUeh/ymEYZt2HrPPl9qYcz4K69s410X6oHL0y
3U++NWs+navKETL/qTiY8bwCt/tOen2B8bwCQzqJJFcYzyuQvO/h9SeM5xVY
7hQ7eBnjeQUWln++VMV4XoFZ958MMTGeV6D2cE2mlvG8Ajc/6EfnMZ5X4IDf
29cvGc8r0LNRZcoFxvMKnHRIXryX8bwSU3Fs2l7G80r8Ne/Wl4uM55W4oUjf
+ZrxvBINjXPCCxjPK2G1SLzawHheCes6gxYdYTyvhKla9yyf8bwSjR/2Dgpj
PDevZx+Zf5TxvBLdR82TrWA8l+BRx6JXnoznEijnPM3fzHgugVvgwlM3GM8l
uNZsde0kxnMJjh1020n4aOn3JBi5wTeJ1MswHsAS7Om89Wwx47kEwzLH2D9j
PJegoNWzT7aM5xKs87A/NI7xvApXOy7a6sx4XoUP/eZoxzGeV6HR7sm1dzKe
m+/JbXDLcMbzKsRh6f1yxnOzT3xbXynMi2bfGvMqvJzxvApZrtl5oYznVfjp
/bvoL8bzKvxy/1OP3xjPq9DU1cnDhuWnFAWhRXPecZRHUmiNsZfGsXyV4kTn
xH3nGZ+k8L814106y18p7g73GcQxXklxvO/sRTKWz1JEH+nXOozxS4r+jZuo
F7D8lqLj9iCrBmbNl/9W8+/zt2n+g6P5LoVVfI410Ra+SfFjxLzfbFj+S3Er
PGb+UsY7KYqdGp30Y/UgxcPZI0PVjH9S3PnS2kXD6sO8ftSh3yvGQyl0WzS2
M1i9SOH1utfMAo7yUYq2fzcvOMfR+pHiZtAV1X6O8lKGS18uuzznaD3J0PGf
f2a3Z/yUYcikNlFnWX3JMODw3UVljKcyRMzfzs+Xlnoza8/i3v8yvsqwwrlD
2wms/mQoze8U8pqjvJVBN6SH33iO1qMMa9ckHnHgKH9lGLS7Z3uybqlPGV7U
uzXgLUd5bD5/3P5VM1i9ynArfktZDOOz+Tzb1hiFflyGrF5+sm+M1zKsDy3o
NIbVswyu0a3enOcov2Vw299hpMxI61sGR5Wnxy0j5bkckpRH494aab3LMfrT
9vHgKN/leAx3tYqj9S9HcNy40TcZ7+VI3ll8Us/8QI7P9s9bZzP+y9HZf7v1
WOYPcgwZtMRrLUf7AfN+w2aMOW+kfmH+vlPgj1+MtD+QQ3GnQ1ojI50H5Pg7
zrXojJH2C3L4lv46dCNH5wM5GtUfvXAW6x/kcNtl87KU+YsciSk26ytYPyHH
LcMlt6nMb+TY7vdHgQdH+ws5jh0dWK+rkfqPHI3XiFvNNNB+Q47ae9O+dzZQ
P1LAqVbu/dsG2n8oIF48fHeIkfqTwjxv7I0VcbQfUcBLMel6NPMrBfp3SAnT
sv5EgZXYp1rI/EuB0Y9cnDpwtF9RYNiusVuCDNTPFLCSvk9cq6f9iwI/frY5
LNNRf1MgNcvrxhI97WcUmD64+ePLBup3CjjM3rmyF0f7GwXyC9Lr7mD+p8CM
01M8hPcpCgzwXVG5nfmhAhePpB/VGWn/o8A3b21cIwP1RwXGj/zUYbyO9kMK
9EyMnjRfS/1SgWLXu5cDtbQ/UqLyyaFEKz2dh5TYkvBc28BI+yUlnj0aMqiK
o/OREh71YtsqWP+kxBWdIozw3zIvKdHvW53VJUbaTykxo/brSVP1dH5SwmXK
xLYpGtpfKbHp3LGNTmo6TynRd/29+M5mzbdHe5ToGbdWcVdD5yslsmZlZY80
78e3NwFK/LiZvp3ch2XeUqJV2Zpub1g/psRgVZMtpN4t85cSzYYebJRppP2Z
EvH9JJN9dXQeU+L7/ofJYhXt15SYE1oS4Kqk85kSL68+OHtYQfs3Jb4Mcr1l
V03ntWr8r36VeKmG9nPV+Pzmw6VxBjq/VaOpqOqSM+vvqpEWua0NqRfLPFeN
7Eepc/OMtN+rxqNamfNPael8Vw3HyOa/T1bS/q8aTXbYDlVW0XmvGqMGtKzX
XEL7wWr0Wd3PtKGKzn/VaJAwUXNfQfvDakRuLbzmqqXzYDWWKhe42XC0X6zG
lNq93hAeWubDarj03rHCZKT9YzXG9t65d6KGzovV8Itvv+OilPaT1Thp41HP
u4zOj9VYOU/lu6qI9pfV0AbPsLErpvNkNdZP+qPBqnLKcxWmF61+cEpBea6C
24d93zfpKc9V6Ddh0IaPjOcqDF3Qws+dozxX4UL/rnsCVZTnKpTMbdZcJKY8
V+Glw/VPcTmU5yokrrn7z6mflOcqGM4tTZ6aQudTFVwkO+JzMinPVcDlgIxO
pZTnKowJaTPuXDXluQq+7ZfsC+Yoz1WYGNvq4yuO8lyFUckpst5KynMV7DOb
HuklojxXYeOatHkLvlCeq/Bwi/+2ZhGU5yrUO9+gwY1QynMVdk8ZMUIdQXmu
wi7xsVGLv1Geq5Hnop+cVUx5rsbxzLO19+goz9V4PfmXmA2M52rc6ld7U10p
5bkaKSK/acHxlOdqXHrXoHLoTcpzNdrZrf92bTvluRpH22s9ypZQnqvRerNs
7OGVlOdqLDueN7rjUcpzNXxu18sIfkl5rsa+fS3u9hJTnqvxdNoKZ+F9mhoD
ZwZeTSymPFdDNsG9zftLlOdqnJk445C4C+W5GvWLP30bd1dSw3M1FNM+JMjH
Smp4rsa63o/nz/tNUsNzNbxejgpftVBSw3MNlHZRZ0pyJTU812D+mt++3j9M
ea7B2mFNlHW0lOcabDjfpVlsFOW5Bg7DraTYKqnhuQZ727mabrSoqOG5BkOX
zb6Sb19Ww3MN0joGOW8dXlzDcw3m1bcR3zUV1PBcg051nvr0P5Rfw3MNQuyk
MS9viWrmAQ02Lfx6TdlXVMNzDWbtGnT7oTavhucaBMRtDbmnzKvhuQbHuuxv
36O9qIbnGsxdcCTm1QFRDc812F1RK2b32PwanmsQFjJn256gghqea+AuMtpa
vy2q4bkG7xefPut7trSG5xoc8L5wfuPd8hqea9HX498uP4dJaniuxbP7TQrD
n1Cea7G11dRlSi3luVkvu9QlcQfluRbOv2xrH2yeayw810J+PDIu41dJDc/N
65O5IZqUyhqea3G+YcR0X2llDc+1cO3Xwnr8HEkNz7W4+Nlv5c1ySQ3PtbgR
82b5dh/Kcy1OBG+5EJJNea6FR8NZXSvY+wotXhzzqZpfRHmuRXzojpW17lCe
a/HXh4Pn/1lCea5FjyvtdzZwojzX4rdL3eape1Kea+E1oss0Zw/Kc/P9+C4P
vLWD8lyLsB1N7J6EUZ7r0Kfg+Lt3JZTnOjg9SNtYwVGe6xA1ed74ixrKcx2k
fRe4JGdSnuswPiZyxOUwynMdfohavxEFUJ7rcNJ6g+uJE5TnOpyfcKZ40VnK
cx2Ckra0eveQ8lwHf78gv7Xx9P2JDn6XM/eJyynPdcjpPX7PFSN9n6JDWuDl
fXU5ynMdPIMeru9RRXmuw6hPbR1/S6M812FfwYbUhdGU5zqMWOo39NNzynMd
RmsqpvmHUZ7rkDRZy8ljKM915v5drKxMozzXgdNdrOsgoTzX41RumfsWA+W5
Hi++cPv/Z6I812N9cNDmd2rKcz10DfJLT5dSnuvRYv+q4+PSKM/1EI9p9aBB
POW5HgXdXFRhnynP9ZhoW3d0USLluR7Kh4+WfM+lPNejo2mh8zbGcz0eXcke
4qOnPNfD5qUv//9JLDzXY3BV8QhrA+W5HocmdHe5J6M81+N2p6iNDkWU53r0
ym4i7ZVJea6H6Itds3mplOd6jDvUa2BZBuW5Hs+u/fRfVUh5rkfI2rpWy6SU
53p06HDB5baO8tyAVteaekWZKM8NWHX2ktyVozw3ILZYs6idmvLcgBbjZ08d
U0l5bkBXyYltfxVSnhvw2Cu9jjaX8twAW+WHUy4iynMD/JvIp0WWUJ4bkHW1
7z07GeW5AXXXReRXainPDejhXmeVm/l8p3meG5A+Z0nhYjafG/Dz1TKPk+bn
acIXsAGrS02aj3LKcwNKu/n9sC2nPDdgub1dtXMx5bkBQ278cFYXUZ4bYJ3R
sO1UMeW5AX5nE2ODZZTnBtyfea7rVC3luQFcnx6622w+N8Knnv1EEXvfZUT9
dWEfYg2U50b847BddktFeW5E5ZiZd3OrKM+N0HfZoVeIKc+N6OqYH3e/jPLc
iPADjb1XVVCeG+EZ2zmgs5zy3IiR5Zd//aShPDdiSvdtSaQ/tPDciPdtvU8J
/75pRJj16CmD2XxuxNQ7OXnrtZTnRiTEdDh9VEF5bsStdvPaPpVQnhuxY0zE
wMcVlOdGqCZZWfeV0PnciJBFizwD5HQ+N8Ku1+AeszR0PjdizSzXVbPZfM7h
24LjC3PZ+zgOFYajDx1MlOccRgwv60Dqy8JzDl/Kk9YvUlGec9jyqHHwCxmd
zzk0cg54MaiKzuccktqs84uoovM5hyV+TVNtFXQ+59BsoYOLVk3ncw6DO9i0
fG6g8zmHZZF/Lg5g7/c4nLCLz75novM5h5MFqud6A33fx6FveL3CfzR0PueQ
sat58e9KOp9zODb7aPZiGZ3POfSxd5zVUUbncw7D5QNVZL6x8JzD0FrxmwLU
dD7nIHvV+GIbNp+bdW/va4PY+0ITRGWJT8i/V1l4bsK+mMy6rTjKcxNq5Thf
+0tHeW5CdPDhFVNUlOcmhHu/ShmtoPO5CeO9h633ktP53ITl03fvra2k87kJ
FwtUv2xT0/nchIGjA/yPsfnchKhrcwqjODqfm/DLmJJU4f8vmL+vN2zO4yjP
TSho/fxOpp7y3ASfQY6GlhrKcxPm+TqFVyspz01Yqppge01BeW6Cc6+ZWQeU
lOcmpMfqBkxXU56b0N9h2s7aespzE2KXDHUn84qF5yaoTmx9JTaf7/8AraZs
3w==
    "], {{{}, {}, 
      {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
        "]]}}, {
      {RGBColor[0, 0, 1], PointBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
        "]]}, {}, {}}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{Automatic, 255.44269057379626`},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.498730050524138*^9, 3.498730112378397*^9}, {
  3.498730283743281*^9, 3.498730296178136*^9}, {3.498730331574342*^9, 
  3.498730364365433*^9}},
 CellLabel->"Out[30]=",
 CellID->2120472041]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{1600, 832},
WindowMargins->{{0, Automatic}, {Automatic, 25}},
CellContext->"Global`",
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "iso8859-1"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[28697, 672, 100, 2, 56, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 30616, 742}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 325, 14, 26, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[895, 38, 68, 1, 30, "CategorizationSection",
 CellID->1122911449],
Cell[966, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1048, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1130, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1209, 53, 88, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1334, 59, 55, 1, 20, "KeywordsSection",
 CellID->477174294],
Cell[1392, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1474, 68, 65, 1, 20, "TemplatesSection",
 CellID->1872225408],
Cell[1542, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1639, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1724, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1808, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1927, 90, 53, 1, 20, "DetailsSection",
 CellID->307771771],
Cell[1983, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2049, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2121, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2188, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2260, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2324, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2388, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2454, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2535, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2639, 132, 75, 1, 64, "ObjectName",
 CellID->1224892054],
Cell[2717, 135, 608, 16, 97, "Usage",
 CellID->982511436],
Cell[3328, 153, 42, 1, 26, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[3407, 159, 57, 1, 44, "TutorialsSection",
 CellID->250839057],
Cell[3467, 162, 45, 1, 17, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3549, 168, 83, 1, 31, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3635, 171, 58, 1, 17, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3730, 177, 65, 1, 31, "RelatedLinksSection",
 CellID->1584193535],
Cell[3798, 180, 49, 1, 17, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3884, 186, 55, 1, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[3942, 189, 228, 4, 17, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[4207, 198, 57, 1, 31, "MoreAboutSection",
 CellID->38303248],
Cell[4267, 201, 46, 1, 17, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[4350, 207, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[4709, 220, 532, 16, 28, "Input",
 CellID->1164310054],
Cell[CellGroupData[{
Cell[5266, 240, 643, 17, 73, "Input",
 CellID->1617009137],
Cell[5912, 259, 251, 6, 26, "Output",
 CellID->932774119]
}, Open  ]],
Cell[6178, 268, 614, 17, 51, "Input",
 CellID->1544537776],
Cell[CellGroupData[{
Cell[6817, 289, 781, 20, 95, "Input",
 CellID->449724912],
Cell[7601, 311, 21047, 355, 265, "Output",
 CellID->2120472041]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28697, 672, 100, 2, 56, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[28800, 676, 125, 3, 34, "ExampleSection",
 CellID->1293636265],
Cell[28928, 681, 148, 3, 22, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[29101, 688, 127, 3, 22, "ExampleSection",
 CellID->2061341341],
Cell[29231, 693, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[29364, 698, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[29509, 704, 131, 3, 22, "ExampleSection",
 CellID->258228157],
Cell[29643, 709, 142, 3, 22, "ExampleSection",
 CellID->2123667759],
Cell[29788, 714, 135, 3, 22, "ExampleSection",
 CellID->1305812373],
Cell[29926, 719, 140, 3, 22, "ExampleSection",
 CellID->1653164318],
Cell[30069, 724, 132, 3, 22, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
